home *** CD-ROM | disk | FTP | other *** search
NeXT TypedStream Data | 1995-03-22 | 16.1 KB | 143 lines |
- typedstream
- IBObjectData
- Object
- CustomObject
- WWTCLInterp
- WWTTTimer
- @:diciffffc
- dilateMotorProgram $dilate(u) $dilate(pupilMin) $dilate(extent);
- set dilate(u) [expr $dilate(u) + ($dilate(uIncr) * [synchWithScene])];
- preDilate
- postDilate $dilate(pupilMax)
- $dilate(u) <= 1
- Responder
- [15@]
- WWColorWell
- NXColorWell
- Control
- (set sphere(color) {%f %f %f}; updateView
- sphere(color)
- WWThumbWheel
- PAThumbWheel
- WWThumbWheelCell
- PAThumbWheelCell
- ActionCell
- Helvetica
- #set sphere(thetaMax) %f; updateView
- sphere(thetaMax)
- WWTextField
- TextField
- WWTextFieldCell
- TextFieldCell
- -360.0
- thetaMax
- 'set eyeBall(leftToRight) %f; updateView
- eyeBall(leftToRight)
- $set eyeBall(upToDown) %f; updateView
- eyeBall(upToDown)
- rotate
- WWSlider
- Slider
- WWSliderCell
- SliderCell
- dddf@d@
- NXImage
- NXCachedImageRep
- NXImageRep
- iisssssS
- iiiiiiS
- [2000c]
- !set sphere(xScale) %f; updateView
- sphere(xScale)
- -10.00
- !set sphere(yScale) %f; updateView
- sphere(yScale)
- !set sphere(zScale) %f; updateView
- sphere(zScale)
- 6set sphere(volumePreservingScaleFactor) %f; updateView
- #sphere(volumePreservingScaleFactor)
- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxp
- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxp
- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxp
- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxp
- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxp
- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxp
- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxp
- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxp
- scale
- set blink(downU) %f; updateView
- blink(downU)
- downU
- set blink(upU) %f; updateView
- blink(upU)
- "set blink(thetaMax) %f; updateView
- blink(thetaMax)
- $set eyeBall(irisSize) %f; updateView
- eyeBall(irisSize)
- irisSize
- %set eyeBall(bloodShot) %f; updateView
- eyeBall(bloodShot)
- bloodShot
- %set eyeBall(pupilSize) %f; updateView
- eyeBall(pupilSize)
- pupilSize
- Matrix
- @:@iiii
- ButtonCell
- Radio
- control_stop
- control_stopH
- control_play
- control_playH
- ff@@#::s
- NXradio
- NXradioH
- )set dilate(howManySeconds) %f; updateView
- dilate(howManySeconds)
- dilate
- (set blink(howManySeconds) %f; updateView
- blink(howManySeconds)
- blink
- ,set constrict(howManySeconds) %f; updateView
- constrict(howManySeconds)
- constrict
- -set eyeBall(irisColor) {%f %f %f}; updateView
- eyeBall(irisColor)
- irisColor
- sideToSide
- -set sideToSide(howManySeconds) %f; updateView
- sideToSide(howManySeconds)
- sideToSideMotorProgram $sideToSide(u) $sideToSide(initialRotate) $sideToSide(minRotate) $sideToSide(maxRotate) $sideToSide(extentA) $sideToSide(extentB) $sideToSide(extentC) ;
- set sideToSide(u) [expr $sideToSide(u) + ($sideToSide(uIncr) * [synchWithScene])];
- preSideToSide
- )postSideToSide $sideToSide(initialRotate)
- $sideToSide(u) <= 1
- WindowTemplate
- iiii***@s@
- Audrey EyeBall controls
- Panel
- constrictMotorProgram $constrict(u) $constrict(pupilMax) $constrict(extent);
- set constrict(u) [expr $constrict(u) + ($constrict(uIncr) * [synchWithScene])];
- preConstrict
- postConstrict $dilate(pupilMin)
- $constrict(u) <= 1
- blinkMotorProgram $blink(u) $blink(downU) $blink(upU) $blink(initialTheta) $blink(thetaMax);
- set blink(u) [expr $blink(u) + ($blink(uIncr) * [synchWithScene])];
- preBlink
- postBlink $blink(initialTheta)
- $blink(u) <= 1
- File's Owner(
- controls(
- [24@]
- IBOutletConnector
- IBConnector
- controlPanel
- IBControlConnector
- evalUsingColor:
- evalUsingFloatValue:
- stopButton
- startButton
- interp
- stop:
- start:
-